home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Strate…Tools for the Enterprise / Microsoft Internet Strategy & Tools for the Enterprise.iso / content / devel.tls / icp / vbsamp / uucode-d.exe / UUDEFS.BAS < prev    next >
BASIC Source File  |  1996-02-28  |  3KB  |  70 lines
  1. Attribute VB_Name = "UUDefs"
  2. Option Explicit
  3.  
  4. Public Const UURECLEN As Byte = 45                  ' UU Encode input record len
  5. Public Const UUDECRECLEN As Byte = 63               ' UU Decode input record len
  6. Public Const UURECS = 40                            ' UU Encode block size = 40 records
  7. Public Const UUESINGLEFILE = 0                      ' UU Encode contents to single file
  8.  
  9. Public Const UUBLOCKLEN = (UURECLEN * UURECS)       ' Best Encode Block Length
  10. Public Const UUDECBLOCKLEN = (UUDECRECLEN * UURECS) ' Best Decode Block Length
  11.  
  12. Public Const UUBASE = 32
  13. Public Const UUBASEMASK = 127                       ' UU code base bit mask
  14. Public Const UUTERM = 96                            ' UU Decode File Terminator...
  15.  
  16. Public Const BEGINHDR = "begin 644 "                ' UU Encode File Begin Header
  17. Public Const ENDHDR = "end"                         ' UU Encode File End Header
  18.  
  19. '--------------------------------------------------------
  20. ' Minimal MIME-Conformance Constants...
  21. ' ref. [RFC 1521]
  22. '--------------------------------------------------------
  23. '----- MIME Version -------------------------------------
  24. Public Const MIMEVersion = "MIME-Version: 1.0"
  25.  
  26. '----- Content Description ------------------------------
  27. Public Const MIMEContetnDescription = "Content-Description: "
  28.  
  29. '----- Content Type -------------------------------------
  30. Public Const MIMEContentType = "Content-Type: "
  31.     Public Const MIME_App_OS = "application\Octet-Stream"
  32.     Public Const MIME_App_Post = "application\Postscript"
  33.     Public Const MIME_Image_JPEG = "image\JPEG"
  34.     Public Const MIME_Image_GIF = "image\GIF"
  35.     Public Const MIME_Image_BMP = "image\X-BMP"
  36.     Public Const MIME_Image_MPEG = "video\MPEG"
  37.     Public Const MIME_Audio_WAV = "audio\X-WAV"
  38.     Public Const MIME_Audio_VOC = "audio\X-VOC"
  39.     Public Const MIME_Text_ASCII = "text\plain"
  40.     Public Const MIME_CharSet = "charset"
  41.         Public Const MIME_Ascii = "us-ascii"
  42.     Public Const MIME_Name = "name="
  43.     Public Const MIME_Message = "message/partial"
  44.     Public Const MIME_Number = "number="
  45.     Public Const MIME_Total = "total="
  46.     Public Const MIME_Id = "id="
  47.     
  48. '----- Message ID ---------------------------------------
  49. Public Const MIMEMessageID = "Message-ID: "
  50.  
  51. '----- Content Transfer Encoding ------------------------
  52. Public Const MIMEContentTransferEncoding = "Content-Transfer-Encoding: "
  53.     Public Const MIME_UUEncode = "X-uuencode"
  54.  
  55. '----- Content Disposition ------------------------------
  56. Public Const MIMEContentDisposition = "Content-Disposition: "
  57.     Public Const MIME_Attachment = "attachment"
  58.     Public Const MIME_FileName = "filename="
  59.  
  60. Public Const MIME = ""
  61.  
  62. '--------------------------------------------------------
  63. '- Dll entry point
  64. '--------------------------------------------------------
  65. Sub main()
  66. End Sub
  67. '--------------------------------------------------------
  68.  
  69.  
  70.